home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / DefProcs / PopUp / patch.a < prev    next >
Encoding:
Text File  |  1991-10-21  |  261 b   |  20 lines  |  [TEXT/MPS ]
  1. ;asm patch.a -l -h
  2.  
  3.     proc
  4. a    ds.l    1
  5. w    ds.w    1
  6. e    nop
  7.     move.l    4(sp),-(sp)
  8.     lea.l    j(pc),a0
  9.     move.l    a0,-(sp)
  10.     movea.l    a(pc),a0
  11.     jmp        (a0)
  12. j    movea.l    (sp)+,a0
  13.     movea.l    (sp)+,a1
  14.     movea.l    (a1),a1
  15.     move.w    w(pc),d0
  16.     cmp.w    2(a1),d0
  17.     ble.s    r
  18.     move.w    d0,2(a1)
  19. r    jmp        (a0)
  20.     end